Turn on case-sensitivity in replacements

Should avoid situations like #84

diff --git a/which-key.el b/which-key.el
index 93cda2c8e258b80d2400d9cdd0a73560ed9eaefb..1243bc0280621a399503fbd59abb896573a00077 100644 (file)
--- a/which-key.el
+++ b/which-key.el
@@ -1080,7 +1080,8 @@ to replace and the cdr is the replacement text.  Unless LITERAL is
 non-nil regexp is used in the replacements.  Whether or not a
 replacement occurs return the new STRING."
   (save-match-data
-    (let ((new-string string))
+    (let ((new-string string)
+          case-fold-search)
       (dolist (repl repl-alist)
         (when (string-match (car repl) new-string)
           (setq new-string